(deftemplate Persoana
    (multislot nume)
    (slot schizofrenie)
    (slot insomnie)
    (slot halucinatii)
    (slot durere_burta)
    (slot grata)
    (slot varsaturi)
    (slot balonare)
    (slot febra)
    (slot icter)
    (slot crize)
    (slot tristete)
)    

(assert(Persoana(nume Emil Boc)(schizofrenie da)(insomnie da)(halucinatii da)))

(assert(Persoana(nume Ioana Prat)(durere_burta da)(grata da)(varsaturi da)))

(assert(Persoana(nume Gigi Becalii)(grata da)(varsaturi da)(balonare da)(febra da)(icter da)))

(assert(Persoana(nume Radu Popescu)(insomnie da)(crize da)))

(assert(Persoana(nume Vadim Tudor)(insomnie da)(tristete da)))

(assert(Persoana(nume Traian Basescu)(insomnie da)(tristete da)))

(assert(Persoana(nume Tiberiu Duru)(insomnie da)(tristete da)(crize da)))

(facts)



(defrule Alzheimer
    (Persoana(nume ?x ?y)(schizofrenie da)(insomnie da)(halucinatii da))
    =>
     (printout t ?x " " ?y " schizofrenie!" crlf)
    )

(defrule Apendicita
    (Persoana(nume ?x ?y)(durere_burta da)(grata da)(varsaturi da))
    =>
     (printout t ?x " "  ?y " are apendicita!" crlf)
    )

(defrule Hepatita
    (Persoana(nume ?x ?y)(grata da)(varsaturi da)(balonare da)(febra da)(icter da))
    =>
     (printout t  ?x " "  ?y " are hepatita!" crlf)
    )

(defrule Epilepsie
    (declare(salience 1))
    (Persoana(nume ?x ?y)(insomnie da)(crize da))
    =>
     (printout t  ?x " "  ?y " are epilepsie!" crlf)
    )

(defrule Depresie
    (declare(salience 2))
    (Persoana(nume ?x ?y)(insomnie da)(tristete da))
    =>
     (printout t ?x " "  ?y " are depresie!" crlf)
    )
(agenda)
(run)

